﻿Imports System.Transactions
Imports CondorTravel.BE
Imports CondorTravel.DALC

Public Class CiudadBC

    Public Function ListarCiudad(ByVal objPaisBE As PaisBE) As List(Of CiudadBE)
        Try
            Dim listCiudadBE As List(Of CiudadBE) = Nothing
            Dim objCategoriaDALC As CiudadDALC = Nothing
            Dim bExito As Boolean = False
            Dim sMensaje As String = String.Empty

            objCategoriaDALC = New CiudadDALC
            listCiudadBE = New List(Of CiudadBE)()
            listCiudadBE = objCategoriaDALC.ListarCiudad(objPaisBE, bExito, sMensaje)

            Return listCiudadBE

        Catch ex As Exception
            MsgBox(ex.Message, vbCritical, "Error del sistema")
            Return Nothing
            Exit Function
        End Try
    End Function







End Class
